home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesS-T.lzh / SinkOrSwim.lha / SinkOrSwimHD / Install < prev    next >
Text File  |  2000-07-20  |  4KB  |  190 lines
  1. ;****************************
  2. (set #sub-dir "")
  3. (set #readme-file "SinkOrSwim.readme")    ;name of readme file
  4. (set #last-file "Disk.2")
  5.  
  6. ;****************************
  7. ;----------------------------
  8. ; Checks if given program is reachable via the path
  9. ; if not abort install
  10. ; IN:  #program - to check
  11. ; OUT: -
  12.  
  13. (procedure P_chkrun
  14.   (if
  15.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  16.     ("")
  17.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  18.   )
  19. )
  20.  
  21. (procedure P_disk
  22.   (askdisk
  23.     (dest #AD_disk)
  24.     (prompt ("\nInsert Sink or Swim disk in drive."))
  25.     (help @askdisk-help)
  26.   )
  27. )
  28.  
  29. (if
  30.   (exists #readme-file)
  31.   (if 
  32.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  33.     ("")
  34.     (run ("SYS:Utilities/More %s" #readme-file))
  35.   )
  36. )
  37.  
  38. (set #program "WHDLoad")
  39. (P_chkrun)
  40.  
  41. (set #program "RawDIC")
  42. (P_chkrun)
  43.  
  44. (if
  45.   (= @user-level 2)
  46.   (
  47.     (set #CI_drive
  48.       (askchoice
  49.     (prompt "Select source drive for diskimages")
  50.     (default 0)
  51.     (choices "DF0:" "DF1:" "DF2:" "DF3:")
  52.     (help @askchoice-help)
  53.       )
  54.     )
  55.     (select #CI_drive
  56.       (set #CI_drive "DF0:")
  57.       (set #CI_drive "DF1:")
  58.       (set #CI_drive "DF2:")
  59.       (set #CI_drive "DF3:")
  60.     )
  61.   )
  62.   (set #CI_drive "DF0:")
  63. )
  64.  
  65. (set @default-dest
  66.   (askdir
  67.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  68.     (help @askdir-help)
  69.     (default @default-dest)
  70.     (disk)
  71.   )
  72. )
  73. (set #dest (tackon @default-dest @app-name))
  74. (if
  75.   (exists #dest)
  76.   (
  77.     (set #choice
  78.       (askbool
  79.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  80.         (default 1)
  81.         (choices "Delete" "Skip")
  82.         (help @askbool-help)
  83.       )
  84.     )
  85.     (if
  86.       (= #choice 1)
  87.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  88.     )
  89.   )
  90. )
  91.  
  92. (makedir #dest
  93.   (help @makedir-help)
  94.   (infos)
  95. )
  96.  
  97. (if
  98.   (exists ("%s.newicon" @app-name))
  99.   (set #icon
  100.     (askchoice
  101.       (prompt "\nWhich icon do you like to install ?\n")
  102.       (default 0)
  103.       (choices "Normal" "NewIcon")
  104.       (help @askchoice-help)
  105.     )
  106.   )
  107.   (set #icon 0)
  108. )
  109. (select #icon
  110.   (set #icon ("%s.inf" @app-name))
  111.   (set #icon ("%s.newicon" @app-name))
  112. )
  113.  
  114. (copyfiles
  115.   (help @copyfiles-help)
  116.   (source #icon)
  117.   (newname ("%s.info" @app-name))
  118.   (dest #dest)
  119. )
  120.  
  121. (if
  122.   (exists ("512kB.slave" @app-name))
  123.   (set #slave
  124.     (askchoice
  125.       (prompt "\nWhich slave do you want to install ?\n")
  126.       (default 0)
  127.       (choices "512kb" "1MB [extra sound effects]")
  128.       (help @askchoice-help)
  129.     )
  130.   )
  131.   (set #slave 0)
  132. )
  133. (select #slave
  134.   (set #slave ("512kB.slave"))
  135.   (set #slave ("1MB.slave"))
  136. )
  137.  
  138. (copyfiles
  139.  (help @copyfiles-help)
  140.  (source #slave)
  141.  (newname ("%s.slave" @app-name))
  142.  (dest #dest)
  143. )
  144.  
  145. (if
  146.   (exists #readme-file)
  147.   (copyfiles
  148.     (help @copyfiles-help)
  149.     (source #readme-file)
  150.     (dest #dest)
  151.   )
  152. )
  153. (if
  154.   (exists ("%s.info" #readme-file))
  155.   (copyfiles
  156.     (help @copyfiles-help)
  157.     (source ("%s.info" #readme-file))
  158.     (dest #dest)
  159.   )
  160. )
  161.  
  162. (if
  163.   (= #sub-dir "")
  164.   ("")
  165.   (
  166.     (set #dest (tackon #dest #sub-dir))
  167.     (makedir #dest
  168.       (help @makedir-help)
  169.     )
  170.   )
  171. )
  172.  
  173. (copyfiles
  174.   (help @copyfiles-help)
  175.   (source ("%s.islave" @app-name))
  176.   (dest #dest)
  177. )
  178.  
  179. (working)
  180. (run ("CD \"%s\"\nRawDIC SLAVE=%s.islave SOURCE=%s IGNOREERRORS\nDelete %s.islave" #dest @app-name #CI_drive @app-name))
  181.  
  182. (if
  183.   (exists (tackon #dest #last-file))
  184.   ("")
  185.   (abort "Diskimaging not successful !\nRawDIC was unable to create all needed files !")
  186. )
  187.  
  188.  
  189. (exit)
  190.